home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs20.d81 / ect.prg (.txt) < prev    next >
Commodore BASIC  |  2009-10-10  |  1KB  |  19 lines

  1. 5 REM SCREEN EFFECT
  2. 10 PRINT"[147]"
  3. 30 FOR J=679 TO 693:READ K:POKE J,K:NEXT
  4. 40 DATA 172,032,208,202,142,032,208,165
  5. 50 DATA 198,240,248,140,032,208,096
  6. 60 PRINT"SCREEN EFFECTS-JOE PORTERA"
  7. 70 POKE 646,1:POKE 53280,1:POKE 53281,1
  8. 80 SA=49152
  9. 90 FOR J=0 TO 24:READ K:POKE SA+J,K:CS=CS+K:NEXT
  10. 100 IF CS<>3953 THEN PRINT"COOL":STOP
  11. 110 DATA 200,140,033,208,140,032,208,162
  12. 120 DATA 094,202,016,253,165,203,201,063
  13. 130 DATA 208,238,165,203,201,064,208,250
  14. 140 DATA 096
  15. 150 SYS SA
  16. 160 PRINT"<RETURN>";:INPUT
  17. 170 SYS 679
  18. 2010 FOR J=0 TO 255:POKE 53270,J:NEXT:POKE53270,200
  19.